home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / xfontstruct.t < prev    next >
Text File  |  1990-06-01  |  5KB  |  101 lines
  1. (herald xfontstruct (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XFONTSTRUCT) (CONS 'XFONTSTRUCTP (MAKE-BYTEV 80)))
  3. (DEFINE (XFONTSTRUCT-EXT_DATA X)
  4.         ((LAMBDA (X Y) (CONS 'XEXTDATAP (MREF-POINTER X Y)))
  5.          (CHK-XFONTSTRUCTP X)
  6.          0))
  7. (DEFINE (XFONTSTRUCT-EXT_DATA! X Y)
  8.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-XEXTDATAP Z)))
  9.          (CHK-XFONTSTRUCTP X)
  10.          0
  11.          Y))
  12. (DEFINE (XFONTSTRUCT-FID X) (MREF-INTEGER (CHK-XFONTSTRUCTP X) 4))
  13. (DEFINE (XFONTSTRUCT-FID! X Y) (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 4 Y))
  14. (DEFINE (XFONTSTRUCT-DIRECTION X) (MREF-INTEGER (CHK-XFONTSTRUCTP X) 8))
  15. (DEFINE (XFONTSTRUCT-DIRECTION! X Y)
  16.         (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 8 Y))
  17. (DEFINE (XFONTSTRUCT-MIN_CHAR_OR_BYTE2 X)
  18.         (MREF-INTEGER (CHK-XFONTSTRUCTP X) 12))
  19. (DEFINE (XFONTSTRUCT-MIN_CHAR_OR_BYTE2! X Y)
  20.         (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 12 Y))
  21. (DEFINE (XFONTSTRUCT-MAX_CHAR_OR_BYTE2 X)
  22.         (MREF-INTEGER (CHK-XFONTSTRUCTP X) 16))
  23. (DEFINE (XFONTSTRUCT-MAX_CHAR_OR_BYTE2! X Y)
  24.         (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 16 Y))
  25. (DEFINE (XFONTSTRUCT-MIN_BYTE1 X) (MREF-INTEGER (CHK-XFONTSTRUCTP X) 20))
  26. (DEFINE (XFONTSTRUCT-MIN_BYTE1! X Y)
  27.         (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 20 Y))
  28. (DEFINE (XFONTSTRUCT-MAX_BYTE1 X) (MREF-INTEGER (CHK-XFONTSTRUCTP X) 24))
  29. (DEFINE (XFONTSTRUCT-MAX_BYTE1! X Y)
  30.         (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 24 Y))
  31. (DEFINE (XFONTSTRUCT-ALL_CHARS_EXIST X) (MREF-INTEGER (CHK-XFONTSTRUCTP X) 28))
  32. (DEFINE (XFONTSTRUCT-ALL_CHARS_EXIST! X Y)
  33.         (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 28 Y))
  34. (DEFINE (XFONTSTRUCT-DEFAULT_CHAR X) (MREF-INTEGER (CHK-XFONTSTRUCTP X) 32))
  35. (DEFINE (XFONTSTRUCT-DEFAULT_CHAR! X Y)
  36.         (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 32 Y))
  37. (DEFINE (XFONTSTRUCT-N_PROPERTIES X) (MREF-INTEGER (CHK-XFONTSTRUCTP X) 36))
  38. (DEFINE (XFONTSTRUCT-N_PROPERTIES! X Y)
  39.         (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 36 Y))
  40. (DEFINE (XFONTSTRUCT-PROPERTIES X)
  41.         ((LAMBDA (X Y) (CONS 'XFONTPROPP (MREF-POINTER X Y)))
  42.          (CHK-XFONTSTRUCTP X)
  43.          40))
  44. (DEFINE (XFONTSTRUCT-PROPERTIES! X Y)
  45.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-XFONTPROPP Z)))
  46.          (CHK-XFONTSTRUCTP X)
  47.          40
  48.          Y))
  49. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-LBEARING X) (MREF-16-S (CHK-XFONTSTRUCTP X) 44))
  50. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-LBEARING! X Y)
  51.         (SET-MREF-16-S! (CHK-XFONTSTRUCTP X) 44 Y))
  52. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-RBEARING X) (MREF-16-S (CHK-XFONTSTRUCTP X) 46))
  53. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-RBEARING! X Y)
  54.         (SET-MREF-16-S! (CHK-XFONTSTRUCTP X) 46 Y))
  55. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-WIDTH X) (MREF-16-S (CHK-XFONTSTRUCTP X) 48))
  56. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-WIDTH! X Y)
  57.         (SET-MREF-16-S! (CHK-XFONTSTRUCTP X) 48 Y))
  58. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-ASCENT X) (MREF-16-S (CHK-XFONTSTRUCTP X) 50))
  59. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-ASCENT! X Y)
  60.         (SET-MREF-16-S! (CHK-XFONTSTRUCTP X) 50 Y))
  61. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-DESCENT X) (MREF-16-S (CHK-XFONTSTRUCTP X) 52))
  62. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-DESCENT! X Y)
  63.         (SET-MREF-16-S! (CHK-XFONTSTRUCTP X) 52 Y))
  64. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-ATTRIBUTES X)
  65.         (MREF-16-U (CHK-XFONTSTRUCTP X) 54))
  66. (DEFINE (XFONTSTRUCT-MIN_BOUNDS-ATTRIBUTES! X Y)
  67.         (SET-MREF-16-U! (CHK-XFONTSTRUCTP X) 54 Y))
  68. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-LBEARING X) (MREF-16-S (CHK-XFONTSTRUCTP X) 56))
  69. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-LBEARING! X Y)
  70.         (SET-MREF-16-S! (CHK-XFONTSTRUCTP X) 56 Y))
  71. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-RBEARING X) (MREF-16-S (CHK-XFONTSTRUCTP X) 58))
  72. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-RBEARING! X Y)
  73.         (SET-MREF-16-S! (CHK-XFONTSTRUCTP X) 58 Y))
  74. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-WIDTH X) (MREF-16-S (CHK-XFONTSTRUCTP X) 60))
  75. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-WIDTH! X Y)
  76.         (SET-MREF-16-S! (CHK-XFONTSTRUCTP X) 60 Y))
  77. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-ASCENT X) (MREF-16-S (CHK-XFONTSTRUCTP X) 62))
  78. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-ASCENT! X Y)
  79.         (SET-MREF-16-S! (CHK-XFONTSTRUCTP X) 62 Y))
  80. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-DESCENT X) (MREF-16-S (CHK-XFONTSTRUCTP X) 64))
  81. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-DESCENT! X Y)
  82.         (SET-MREF-16-S! (CHK-XFONTSTRUCTP X) 64 Y))
  83. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-ATTRIBUTES X)
  84.         (MREF-16-U (CHK-XFONTSTRUCTP X) 66))
  85. (DEFINE (XFONTSTRUCT-MAX_BOUNDS-ATTRIBUTES! X Y)
  86.         (SET-MREF-16-U! (CHK-XFONTSTRUCTP X) 66 Y))
  87. (DEFINE (XFONTSTRUCT-PER_CHAR X)
  88.         ((LAMBDA (X Y) (CONS 'XCHARSTRUCTP (MREF-POINTER X Y)))
  89.          (CHK-XFONTSTRUCTP X)
  90.          68))
  91. (DEFINE (XFONTSTRUCT-PER_CHAR! X Y)
  92.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-XCHARSTRUCTP Z)))
  93.          (CHK-XFONTSTRUCTP X)
  94.          68
  95.          Y))
  96. (DEFINE (XFONTSTRUCT-ASCENT X) (MREF-INTEGER (CHK-XFONTSTRUCTP X) 72))
  97. (DEFINE (XFONTSTRUCT-ASCENT! X Y) (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 72 Y))
  98. (DEFINE (XFONTSTRUCT-DESCENT X) (MREF-INTEGER (CHK-XFONTSTRUCTP X) 76))
  99. (DEFINE (XFONTSTRUCT-DESCENT! X Y)
  100.         (SET-MREF-INTEGER! (CHK-XFONTSTRUCTP X) 76 Y))
  101.